home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act5 / 00392.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  709 b   |  23 lines
  1. on exitFrame
  2.   global thingtimes, oldbox
  3.   if the timer > getPropAt(thingtimes, 1) then
  4.     if the timer > (getPropAt(thingtimes, 1) + 150) then
  5.       set the castNum of sprite 17 to oldbox
  6.       if getAt(getAt(thingtimes, 1), 1) <> 17 then
  7.         puppetSprite(getAt(getAt(thingtimes, 1), 1), 0)
  8.       end if
  9.       if count(thingtimes) > 1 then
  10.         deleteAt(thingtimes, 1)
  11.       end if
  12.     else
  13.       if getAt(getAt(thingtimes, 1), 1) <> 17 then
  14.         puppetSprite(getAt(getAt(thingtimes, 1), 1), 1)
  15.       end if
  16.       set the castNum of sprite getAt(getAt(thingtimes, 1), 1) to getAt(getAt(thingtimes, 1), 2)
  17.     end if
  18.   end if
  19.   if the soundBusy of 1 then
  20.     go(the frame - random(7))
  21.   end if
  22. end
  23.